Introduction
Turning 21 is a milestone in everyone’s life and usually, people celebrate it with a family dinner and glass of wine. But, how does one find the best wine considering that person has never had alcohol.
Do we get the best rated/most expensive bottle? (Too bad college students are poor)
Do we try to find the best value wine? (Ballin’ on a budget)
Or do follow Jess from New Girl? (Obviously, the only option)
Let’s take a deep dive and answer these pressing questions!
Our project investigates ~120,000 wine reviews with characteristics such as variety, vintage, winery, price, etc. This is our Final Project for Intro to Data Science (Spring 2020) class, and we thought it was a bit too easy, so we decided to expand it and take it a step further.
Prerequisites
Loading the required packages
library(tidyverse)
library(dplyr)
library(ggplot2)
library(scales)
Dataset
Import processed data, which can be found here. Note: This file also credits our dataset curators and outlines our data cleaning pipeline.
#read preprocessed data
wines <- read.csv(file = '../data/processed_data/wines.csv')
Get a sample of the dataset for easy testing. However, for our final report, we ran all of our code on the full wines dataset to get more accurate results.
#set seed value to birthday of Ricardo Rodriguez, American wrestler and ring announcer and Dr. Reinaldo (Rei) Sanchez-Arias
set.seed(19630217)
#set percentage to test with for simplicity, if needed
percentage <- 5
wine_sample<- sample_n(wines, percentage/100*nrow(wines))
Rating Classification
Wines are normally classified in categories as found on this website. To create a more rich dataset we added the field rating_category determined as:
| Classic |
98-100 |
The pinnacle of quality. |
| Superb |
94-97 |
A great achievement. |
| Excellent |
90-93 |
Highly recommended. |
| Very Good |
87-89 |
Often good value; well recommended. |
| Good |
83-86 |
Suitable for everyday consumption; often good value. |
| Acceptable |
80-82 |
Can be employed in casual, less-critical circumstances |
This allows to take a quantitative data and turn it into qualitative data, which can be used for data visualization later.
# function to add rating
rating_category <- function(points){
if(points>=98){
return("Classic")
}
else if (points>=94){
return("Superb")
}
else if(points>=90){
return("Excellent")
}
else if(points>=87){
return("Very Good")
}
else if(points>=83){
return("Good")
}
else{
return("Acceptable")
}
}
wines<- wines %>%
rowwise() %>%
mutate(rating_category = rating_category(points))
head(wines)
Create a Reviewer Profile
Each reviewer has there own bias. In order to offset that we made a “profile” for each reviewer. This profile allows us to later normalize the wine points for more robust apples to apples comparison.
Split Taster Data
To make our dataframes more managable we split reduntant information about the tasters into a new dataframe.
tasters <- wines %>%
select(taster_name, taster_twitter_handle) %>%
unique()
tasters
Drop taster_twitter_handle in wines dataframe to reduce reduntant information.
wines <- wines %>%
select(-taster_twitter_handle)
head(wines)
Create Reviewer Metrics
Each reviewers profile includes the following metrics to create a profile:
avg_points which is the average of all the reviewer’s scores
sd_points which is the standard deviation of all the reviewer’s scores
var_points which is the variance of all the reviewer’s scores
reviews which is the number of reviews conducted
taster_rating_profile <- wines %>%
group_by(taster_name) %>%
summarize(
avg_points = mean(points),
sd_points = sd(points),
var_points = var(points),
reviews = n()
)
Grouping rowwise data frame strips rowwise nature
tasters <- inner_join(tasters, taster_rating_profile, by = "taster_name")
head(tasters)
Normalized Points
As mentioned, each reviewer has a different bias. To offset this, we created a normalized metric, norm_points, by looking at the number of standard deviations a wine is from the reviewer’s avg_points. This gives us a more accurate representation of which wines are “better” than the rest.
normalize_points <- function(data){
left_join(data, tasters, by = "taster_name")%>%
rowwise() %>%
mutate(norm_points = (points-avg_points)/sd_points) %>%
select(-avg_points, -sd_points, -var_points, -taster_twitter_handle, -reviews)
}
wines <- normalize_points(wines)
head(wines)
Data Sanitation
To ensure the integrity of our data, we perform some hard checks that could have been missed during our data pre-processing.
Vintage seems to have year 7200, so we filtered all data up to 2019
wines <- wines %>%
filter(vintage<2019)
Data Exploration
Before, conducting any detailed analysis of our dataset, we looked at a quick summary of the dataset
summary(wines)
title
Château Lestage Simon 2012 Haut-Médoc : 4
Château Maine-Gazin 1997 Bordeaux : 4
Concannon 2009 Selected Vineyards, Central Coast Pinot Noir (Livermore Valley): 4
Domaine Vacheron 2015 Sancerre : 4
Vignerons des Pierres Dorées 2015 Salamandre d'Or (Coteaux Bourguignons) : 4
Adega Cooperativa de Borba 2009 Senses Syrah (Alentejano) : 3
(Other) :117855
alcohol category vintage designation
Min. : 2.20 Dessert : 1648 Min. :1150 :35285
1st Qu.: 13.00 Fortified : 60 1st Qu.:2009 Reserve : 1924
Median : 13.53 Port/Sherry: 386 Median :2011 Estate : 1236
Mean : 13.84 Red :72354 Mean :2010 Reserva : 1214
3rd Qu.: 14.40 Rose : 4203 3rd Qu.:2013 Riserva : 669
Max. :8333.00 Sparkling : 2273 Max. :2017 Estate Grown: 584
NA's :9060 White :36954 (Other) :76966
country province region
US :50228 California :33418 :19360
France :19164 Washington : 8106 Napa Valley : 4234
Italy :17497 Bordeaux : 5665 Columbia Valley (WA): 3855
Spain : 5890 Tuscany : 5647 Russian River Valley: 2896
Portugal: 4905 Oregon : 4824 California : 2200
Chile : 4235 Northern Spain: 3712 Paso Robles : 2193
(Other) :15959 (Other) :56506 (Other) :83140
subregion variety
:70775 Pinot Noir :12071
Central Coast :10277 Chardonnay :10813
Sonoma : 8527 Cabernet Sauvignon : 8933
Columbia Valley : 7617 Red Blend : 8233
Napa : 6450 Bordeaux-style Red Blend: 6564
Willamette Valley: 3286 Riesling : 4893
(Other) :10946 (Other) :66371
winery price points
DFJ Vinhos : 208 Min. : 4.00 Min. : 80.00
Williams Selyem : 207 1st Qu.: 17.00 1st Qu.: 86.00
Testarossa : 205 Median : 25.00 Median : 88.00
Louis Latour : 193 Mean : 35.48 Mean : 88.47
Chateau Ste. Michelle: 192 3rd Qu.: 42.00 3rd Qu.: 91.00
Georges Duboeuf : 192 Max. :3300.00 Max. :100.00
(Other) :116681 NA's :7974
taster_name rating_category norm_points
:23945 Length:117878 Min. :-4.49580
Roger Voss :22265 Class :character 1st Qu.:-0.72711
Michael Schachner:13867 Mode :character Median : 0.03980
Kerin O’Keefe : 9747 Mean : 0.01183
Virginie Boone : 8926 3rd Qu.: 0.70027
Paul Gregutt : 8747 Max. : 4.46378
(Other) :30381
Univariate Exploration
To better understand the distribution of our data, we did some simple univariate visualization based on specific fields. Additionally, before doing a multivariate analysis and answering our research questions, we first want to ensure our dataset is robust and an accurate representation of the real world.
Alcohol Amount
The visualization below depicts the distribution of our dataset based on alcohol percentage, alcohol. To better understand and visualize the data, we categorized the graph based on rating_category. Notice, a majority of wines have an alcohol amount between 12%-15%, and according to Real Simple, wine alcoholic content averages between 11%-13%. This leads us to believe our data is an accurate representation of the real world.
wines %>%
group_by(alcohol) %>%
ggplot() +
geom_histogram(
mapping = aes(
x = alcohol,
fill = rating_category),
na.rm = TRUE,
bins = 50) +
scale_x_continuous(
breaks = seq(0,25,1),
limits = c(4,22)) +
labs(
title = "Distribution of Alcohol Percentage",
x = "Alcohol Percentage",
y = "Count",
fill = "Rating Category"
)
Grouping rowwise data frame strips rowwise nature

Vintage
Next, we wanted to see what vintage most of the wines in the dataset were. Again to better understand and visualize the data, we categorized the graph based on rating_category. Notice that there is roughly an equal percentage of each rating category per vintage.
(Note: Data points before 1990 have been omitted for clarity in visualization)
wines %>%
ggplot() +
geom_bar(
mapping = aes(
x=vintage,
fill = rating_category),
na.rm = TRUE) +
scale_x_continuous(
breaks = seq(1990,2019,5),
limits = c(1990,2019)) +
labs(
title = "Distribution of Vintage",
x = "Vintage",
y = "Count",
fill = "Rating Category")

Winery
To better understand the number wines per winery, we did a visualization that counts the number of wines per winery showing only Top 10 wineries to give you an idea of what winery has the most selection of wines. Notice, each of the top 10 producers of wine have over 100 different wine labels.
wines %>%
group_by(winery) %>%
summarise(count = n()) %>%
arrange(desc(count)) %>%
slice(1:10) %>%
ggplot() +
geom_col(
mapping = aes(
x= reorder(winery, count),
y = count,
fill = winery)) +
labs(
title = "Distribution of Winery (Top 10)",
x = "Winery",
y = "Count") +
theme(legend.position = "none") +
coord_flip()
Grouping rowwise data frame strips rowwise nature

Province
To better understand the number of wines per province, we did a visualization that counts the number of wines per province, showing only the top 10 provinces with the most wines. This can give the reader an idea where their wine will most likely be made with California standing out as a clear leader.
wines %>%
group_by(province) %>%
summarize(count = n()) %>%
arrange(desc(count)) %>%
slice(1:10) %>%
ggplot()+
geom_col(
mapping = aes(
x = reorder(province, count),
y = count,
fill = province)) +
labs(
title = "Distribution of Province (Top 10)",
x = "Province",
y = "Count") +
theme(legend.position = "none") +
coord_flip()
Grouping rowwise data frame strips rowwise nature

Wine Category
Next, we wanted to visualize the distribution of different wine categories in our dataset. To better understand and visualize the data, we categorized the graph based on rating_category. Notice, a majority of the wines are red or white wines.
wines %>%
ggplot()+
geom_bar(
mapping = aes(
x = category,
fill = rating_category)) +
labs(
title = "Distribution of Wine Category",
x = "Wine Category",
y = "Count",
fill = "Rating Category") +
coord_flip()

Price
Next, we wanted to visualize the distribution of price in our dataset. To better understand and visualize the data, we categorized the graph based on rating_category. Notice, a majority of wines are $50 and below, with the most common being between $12 - $25. Again, this accurately represents the real world. As stated by Vivino, the average price for a good bottle of red/white wine is ~$15 and ~$28 for a very good bottle. (CAUTION: The Vivino prices denoted were simply an average for red/white wines average costs. This was done to generalize the information to make a simple comparison. Also, this limited to red/white wine and does not accurately include other types, which are included within our dataset)
(Note: Data points above $400 have been omitted for clarity in visualization)
wines %>%
filter(price < 400) %>%
ggplot() +
geom_histogram(
mapping = aes(
x=price,
fill = rating_category),
binwidth = 15) +
labs(
title = "Distribution of Price",
x = "Price",
y = "Count",
fill = "Rating Category")

Points
Next, we wanted to visualize the distribution of points in our dataset. Notice, here that a majority of wines receive a score between 87 and 90. Which is accurate to the information provided on Wine Searcher, which states 50% of the scores fall between 86-90 point from Wine Enthusiast ratings.
(Note: We our dataset was reterived from the Wine Enthusiast website)
wines %>%
ggplot() +
geom_histogram(
mapping = aes(x=points),
bins = 20)+
labs(
title = "Distribution of Points",
x = "Points",
y = "Count")

Multivariate Exploration
Now that we have a better understanding of our data, and we know it is an accurate representation of the real world, we can perform a more detailed analysis using multiple variables.
Points by Taster
To understand the point distribution by tasters, we did a multivariate visualization that correlates taster names based on the average wine points as identified by the x-intercept. This gives the reader an idea of how some reviewers correlate to the overall average.
(Note: The “blank” represents unknown reviewers. We assumed the reviewers not named have not rated a significant amount of wines and can be grouped into a singular reviewer)
wines %>%
ggplot() +
geom_boxplot(
mapping = aes(
x=taster_name,
y=points,
color = taster_name)) +
geom_hline(yintercept = mean(wines$points)) +
theme(legend.position = "none")+
labs(
title = "Points by Taster",
x="Taster Name",
y="Points"
)+
coord_flip()

Price by Points
To understand the price distribution by points, we did a multivariate visualization that creates a scatter plot of the wines based on points and price. Then, we added a smooth transformation to identify trends. Notice, the data is stacked, and the scores range from 80-100
wines %>%
ggplot() +
geom_point(
mapping = aes(
x = points,
y = price,
color = category),
na.rm = TRUE,
alpha = 0.2) +
labs(
title = "Price by Points",
x = "Points",
y = "Price",
color = "Wine Category") +
geom_smooth(
mapping = aes(
x = points,
y = price),
na.rm = TRUE)

Since there are multiple outliers, and the visualization is clustered. By performing a log on all the prices, we can reduce the skewness of the visualization. Notice, as the quality of wine increases, price increases exponentially.
wines %>%
ggplot() +
geom_point(
mapping = aes(
x = points,
y = log(price),
color = category),
na.rm = TRUE,
alpha = 0.2) +
labs(
title = "log(Price) by Points",
x = "Points",
y = "log(Price)",
color = "Wine Category") +
geom_smooth(
mapping = aes(
x = points,
y = log(price)),
na.rm = TRUE)

Group by Wine Category
Next, our group wanted to do a more granular analysis by looking at how the price varies by points grouped by the wine category. Notice, all the prices go up as points go up, but the growth rates are different per wine category.
wines %>%
ggplot() +
geom_point(
mapping = aes(
x = points,
y = log(price),
color = category),
alpha =0.2,
na.rm = TRUE) +
geom_smooth(
mapping = aes(
x = points,
y = log(price)),
na.rm = TRUE) +
facet_wrap(~category) +
labs(
title = "log(Price) by Points",
x = "Points",
y = "log(Price)")+
theme_minimal()+
theme(legend.position = "none" )

Data Analysis
Now that we fully understand the dataset we are working with, we plan to answer some research questions proposed by the team.
What is the best wine?
An easy way to determine the best wine is by simply finding the top 10 wines by rating.
wines %>%
arrange(desc(points)) %>%
slice(1:10) %>%
select(title,price, points,rating_category, norm_points)
However, this does not account for the taster’s bias. Instead, our group normalized the points based on each taster based on the number of standard deviations a wine is from the raters average. For example, Taster A could give a wine 100 but has an average rating score of 95 with a standard deviation of 5. Whereas, Taster B could offer a wine 91 and have an average score of 87 with a standard deviation of 2. Although the wine tasted by Taster A got a perfect 100 score, Taster B’s wine was much “better” wine since it was two standard deviations from the tasters average compared to 1 standard deviation of the other wine.
Looking at the norm_points these are the top 10 best wines
wines %>%
arrange(desc(norm_points)) %>%
slice(1:10)%>%
select(title,price, points,rating_category, norm_points)
What is the best value wine?
A simple value metric we can use to determine best value is points/price.
wines %>%
arrange(desc(points/price)) %>%
slice(1:10)%>%
select(title,price, points,rating_category, norm_points)
However, again this metric is not normalized. Instead, norm_points/price would yield more robust results.
wines %>%
arrange(desc(norm_points/price)) %>%
slice(1:10) %>%
select(title,price, points,rating_category, norm_points)
Which province has the best wine?
To determine the best province for wine by points, we averaged the points of all wines per province with a sample size greater than 30 and returned the top 10 with standard error. Notice how the standard error is low, meaning the spread of our data is also small, and the average is very accurate.
wines %>%
group_by(province) %>%
summarise(
avg_points_prov = mean(points),
count = n(),
std_err_points_prov = sd(points)/sqrt(count)) %>%
filter(count>30) %>%
arrange(desc(avg_points_prov)) %>%
slice(1:10) %>%
ggplot() +
geom_col(
mapping = aes(
x = reorder(province,avg_points_prov),
y = avg_points_prov,
fill = province)) +
geom_errorbar(
mapping = aes(
x = province,
y = avg_points_prov,
ymin = avg_points_prov - std_err_points_prov,
ymax = avg_points_prov + std_err_points_prov
),
width = 0.2)+
scale_y_continuous(
limits=c(85,95),
oob = rescale_none)+
labs(
x = 'Province',
y = "Average Points",
title = "Average Points By Province (Top 10)") +
theme(legend.position = "none")+
coord_flip()
Grouping rowwise data frame strips rowwise nature

Which wine variety is the best?
To determine the best variety of wine, we use the average points of all wines per variety with a sample size greater than 30. The graph below shows the top 10 varieties with their respective standard error.
wines %>%
group_by(variety) %>%
summarise(
avg_points_variety = mean(points),
count = n(),
std_err_points_variety = sd(points)/sqrt(count)) %>%
filter(count>30) %>%
arrange(desc(avg_points_variety)) %>%
slice(1:10) %>%
ggplot() +
geom_col(
mapping = aes(
x = reorder(variety,avg_points_variety),
y = avg_points_variety,
fill = variety)) +
geom_errorbar(
mapping = aes(
x = variety,
y = avg_points_variety,
ymin = avg_points_variety - std_err_points_variety,
ymax = avg_points_variety + std_err_points_variety
),
width = 0.2)+
scale_y_continuous(
limits=c(85,95),
oob = rescale_none)+
labs(
x = 'Variety',
y = "Average Points",
title = "Average Points By Variety (Top 10)") +
theme(legend.position = "none")+
coord_flip()
Grouping rowwise data frame strips rowwise nature

Jess from New Girl’s favorite wine?
Sounds like a silly question, but take a closer look and you’ll find an interesting question within it: “Can we determine the best value wine based on how much people are willing to pay?” WE SURE CAN!
# If you want to get user input
#user_price <- readline(prompt = "How much are you willing to spend on a bottle?")
#user_price <- as.integer(user_price)
user_price<-11
wines %>%
filter(price <= user_price) %>%
arrange(desc(norm_points/price)) %>%
slice(1:10) %>%
select(title, price, points,rating_category, norm_points)
Now back to the orignal question with Jess
wines %>%
filter(price < 11) %>%
filter(category == "Sparkling") %>%
filter(grepl("pink", title, ignore.case = T) == T) %>%
select(title,price, points,rating_category, norm_points)
As you can see, “Yellow Tail 2015 Pink Bubbles Sparkling (South Australia)” is Jess’s type of wine!
Conclusion
After all this exploration, we were able to walk away with some insights. We learned that standardizing tasters gives a more accurate overview of what the best wines really are, that point values affect price, and that you’re most likely drinking wine from California. In the end, though, this exploration of wine showed us more than just how to design the perfect flight; we learned the importance of data preprocessing, the power of mindful graphics, how to make every ggplot easy to understand for the reader using color, and the practicality of the pipe tool. We were able to apply data manipulation and exploration skills such as filtering, mutating, arranging, greping, and slicing data. Beyond R skills, we learned how to adapt to being a remote team, which was significantly helped with the utilization of GitHub. We feel this report gives a well-rounded display of the tools we were taught throughout the semester, and we were excited to build from that knowledge and integrate other tools as well.
Future Works
There is undoubtedly more exploration to be done within this dataset. Integrating more Twitter data with packages such as rtweet, we could design the “perfect stereotype” of a wine connoisseur by gathering keywords from tweets. Delving into the text mining portion of data science, we could find popular words to describe a wine from each review and design artificial reviews. We could take the data we found, build statistical learning models such as a random forest to predict prices of wines based on the descriptions; this would be a useful model for new, budding (pun intended) wineries to determine the price. Additionally, this data is only a fraction of the data found on the Wine Enthusiast website. Overall, creativity is the only limitation on what other problems we could solve with this dataset.
The data used is just a fraction of the data found on the Wine Enthusiast website, the team has created a script to collect additional information on the site, which can be found here for future expansion.
LS0tCnRpdGxlOiAiRXhwbG9yaW5nIGFuZCBBbmFseWl6aW5nIFdpbmUgRW50aHVzaWFzdCBSZXZpZXdzIgpvdXRwdXQ6IAogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDogdHJ1ZQogICAgdGhlbWU6IHVuaXRlZAotLS0KIyBJbnRyb2R1Y3Rpb24KVHVybmluZyAyMSBpcyBhIG1pbGVzdG9uZSBpbiBldmVyeW9uZSdzIGxpZmUgYW5kIHVzdWFsbHksIHBlb3BsZSBjZWxlYnJhdGUgaXQgd2l0aCBhIGZhbWlseSBkaW5uZXIgYW5kIGdsYXNzIG9mIHdpbmUuIEJ1dCwgaG93IGRvZXMgb25lIGZpbmQgdGhlIGJlc3Qgd2luZSBjb25zaWRlcmluZyB0aGF0IHBlcnNvbiBoYXMgbmV2ZXIgaGFkIGFsY29ob2wuIAoKLSBEbyB3ZSBnZXQgdGhlIGJlc3QgcmF0ZWQvbW9zdCBleHBlbnNpdmUgYm90dGxlPyAoVG9vIGJhZCBjb2xsZWdlIHN0dWRlbnRzIGFyZSBwb29yKSAKLSBEbyB3ZSB0cnkgdG8gZmluZCB0aGUgYmVzdCB2YWx1ZSB3aW5lPyAoQmFsbGluJyBvbiBhIGJ1ZGdldCkKCi0gT3IgZG8gZm9sbG93IEplc3MgZnJvbSBOZXcgR2lybD8gKE9idmlvdXNseSwgdGhlIG9ubHkgb3B0aW9uKQoKTGV0J3MgdGFrZSBhIGRlZXAgZGl2ZSBhbmQgYW5zd2VyIHRoZXNlIHByZXNzaW5nIHF1ZXN0aW9ucyEKCk91ciBwcm9qZWN0IGludmVzdGlnYXRlcyB+MTIwLDAwMCB3aW5lIHJldmlld3Mgd2l0aCBjaGFyYWN0ZXJpc3RpY3Mgc3VjaCBhcyB2YXJpZXR5LCB2aW50YWdlLCB3aW5lcnksIHByaWNlLCBldGMuIFRoaXMgaXMgb3VyIEZpbmFsIFByb2plY3QgZm9yIEludHJvIHRvIERhdGEgU2NpZW5jZSAoU3ByaW5nIDIwMjApIGNsYXNzLCBhbmQgd2UgdGhvdWdodCBpdCB3YXMgYSBiaXQgdG9vIGVhc3ksIHNvIHdlIGRlY2lkZWQgdG8gZXhwYW5kIGl0IGFuZCB0YWtlIGl0IGEgc3RlcCBmdXJ0aGVyLgoKIyBQcmVyZXF1aXNpdGVzCgpMb2FkaW5nIHRoZSByZXF1aXJlZCBwYWNrYWdlcwpgYGB7ciwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShzY2FsZXMpCmBgYAoKIyBEYXRhc2V0CgpJbXBvcnQgcHJvY2Vzc2VkIGRhdGEsIHdoaWNoIGNhbiBiZSBmb3VuZCBbaGVyZV0oaHR0cHM6Ly9naXRodWIuY29tL0M0cmJ5bjNtNG4vd2luZV9yZXZpZXdzX2RhdGFfYW5hbHlzaXMvYmxvYi9tYXN0ZXIvZGF0YS9wcm9jZXNzZWRfZGF0YS9wcmVwcm9jZXNzaW5nLm5iLmh0bWwpLiBOb3RlOiBUaGlzIGZpbGUgYWxzbyBjcmVkaXRzIG91ciBkYXRhc2V0IGN1cmF0b3JzIGFuZCBvdXRsaW5lcyBvdXIgZGF0YSBjbGVhbmluZyBwaXBlbGluZS4KCmBgYHtyfQojcmVhZCBwcmVwcm9jZXNzZWQgZGF0YQp3aW5lcyA8LSByZWFkLmNzdihmaWxlID0gJy4uL2RhdGEvcHJvY2Vzc2VkX2RhdGEvd2luZXMuY3N2JykKYGBgCgpHZXQgYSBzYW1wbGUgb2YgdGhlIGRhdGFzZXQgZm9yIGVhc3kgdGVzdGluZy4gSG93ZXZlciwgZm9yIG91ciBmaW5hbCByZXBvcnQsIHdlIHJhbiBhbGwgb2Ygb3VyIGNvZGUgb24gdGhlIGZ1bGwgd2luZXMgZGF0YXNldCB0byBnZXQgbW9yZSBhY2N1cmF0ZSByZXN1bHRzLgpgYGB7cn0KI3NldCBzZWVkIHZhbHVlIHRvIGJpcnRoZGF5IG9mIFJpY2FyZG8gUm9kcmlndWV6LCBBbWVyaWNhbiB3cmVzdGxlciBhbmQgcmluZyBhbm5vdW5jZXIgYW5kIERyLiBSZWluYWxkbyAoUmVpKSBTYW5jaGV6LUFyaWFzCnNldC5zZWVkKDE5NjMwMjE3KQoKI3NldCBwZXJjZW50YWdlIHRvIHRlc3Qgd2l0aCBmb3Igc2ltcGxpY2l0eSwgaWYgbmVlZGVkCnBlcmNlbnRhZ2UgPC0gNQp3aW5lX3NhbXBsZTwtIHNhbXBsZV9uKHdpbmVzLCBwZXJjZW50YWdlLzEwMCpucm93KHdpbmVzKSkKYGBgCgojIyBSYXRpbmcgQ2xhc3NpZmljYXRpb24KCldpbmVzIGFyZSBub3JtYWxseSBjbGFzc2lmaWVkIGluIGNhdGVnb3JpZXMgYXMgZm91bmQgb24gdGhpcyBbd2Vic2l0ZV0oaHR0cHM6Ly93d3cud2luZW1hZy5jb20vMjAxMC8wNC8wOS95b3UtYXNrZWQtaG93LWlzLWEtd2luZXMtc2NvcmUtZGV0ZXJtaW5lZC8pLiBUbyBjcmVhdGUgYSBtb3JlIHJpY2ggZGF0YXNldCB3ZSBhZGRlZCB0aGUgZmllbGQgYHJhdGluZ19jYXRlZ29yeWAgZGV0ZXJtaW5lZCBhczoKCnxDYXRlZ29yeSAgfCBSYXRpbmcgIHwgRGVzY3JpcHRpb24gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHwKfC0tLS0tLS0tLS18LS0tLS0tLS0tfC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tfAp8Q2xhc3NpYyAgIHwJOTgtMTAwIHwgVGhlIHBpbm5hY2xlIG9mIHF1YWxpdHkuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHwKfFN1cGVyYiAgICB8CTk0LTk3CSB8IEEgZ3JlYXQgYWNoaWV2ZW1lbnQuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB8CnxFeGNlbGxlbnQgfAk5MC05MwkgfCBIaWdobHkgcmVjb21tZW5kZWQuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgfAp8VmVyeSBHb29kIHwgIDg3LTg5CSB8IE9mdGVuIGdvb2QgdmFsdWU7IHdlbGwgcmVjb21tZW5kZWQuICAgICAgICAgICAgICAgICAgICB8CnxHb29kCSAgICAgfCAgODMtODYJIHwgU3VpdGFibGUgZm9yIGV2ZXJ5ZGF5IGNvbnN1bXB0aW9uOyBvZnRlbiBnb29kIHZhbHVlLiAgIHwKfEFjY2VwdGFibGV8CTgwLTgyCSB8IENhbiBiZSBlbXBsb3llZCBpbiBjYXN1YWwsIGxlc3MtY3JpdGljYWwgY2lyY3Vtc3RhbmNlcyB8CgpUaGlzIGFsbG93cyB0byB0YWtlIGEgcXVhbnRpdGF0aXZlIGRhdGEgYW5kIHR1cm4gaXQgaW50byBxdWFsaXRhdGl2ZSBkYXRhLCB3aGljaCBjYW4gYmUgdXNlZCBmb3IgZGF0YSB2aXN1YWxpemF0aW9uIGxhdGVyLiAKCmBgYHtyfQojIGZ1bmN0aW9uIHRvIGFkZCByYXRpbmcKcmF0aW5nX2NhdGVnb3J5IDwtIGZ1bmN0aW9uKHBvaW50cyl7CiAgaWYocG9pbnRzPj05OCl7CiAgICByZXR1cm4oIkNsYXNzaWMiKQogIH0KICBlbHNlIGlmIChwb2ludHM+PTk0KXsKICAgIHJldHVybigiU3VwZXJiIikKICB9CiAgZWxzZSBpZihwb2ludHM+PTkwKXsKICAgIHJldHVybigiRXhjZWxsZW50IikKICB9CiAgZWxzZSBpZihwb2ludHM+PTg3KXsKICAgIHJldHVybigiVmVyeSBHb29kIikKICB9CiAgZWxzZSBpZihwb2ludHM+PTgzKXsKICAgIHJldHVybigiR29vZCIpCiAgfQogIGVsc2V7CiAgICByZXR1cm4oIkFjY2VwdGFibGUiKQogIH0KfQoKd2luZXM8LSB3aW5lcyAlPiUKICByb3d3aXNlKCkgJT4lCiAgbXV0YXRlKHJhdGluZ19jYXRlZ29yeSA9IHJhdGluZ19jYXRlZ29yeShwb2ludHMpKQpoZWFkKHdpbmVzKQpgYGAKIyMgQ3JlYXRlIGEgUmV2aWV3ZXIgUHJvZmlsZQpFYWNoIHJldmlld2VyIGhhcyB0aGVyZSBvd24gYmlhcy4gSW4gb3JkZXIgdG8gb2Zmc2V0IHRoYXQgd2UgbWFkZSBhICJwcm9maWxlIiBmb3IgZWFjaCByZXZpZXdlci4gVGhpcyBwcm9maWxlIGFsbG93cyB1cyB0byBsYXRlciBub3JtYWxpemUgdGhlIHdpbmUgcG9pbnRzIGZvciBtb3JlIHJvYnVzdCBhcHBsZXMgdG8gYXBwbGVzIGNvbXBhcmlzb24uCgojIyMgU3BsaXQgVGFzdGVyIERhdGEKVG8gbWFrZSBvdXIgZGF0YWZyYW1lcyBtb3JlIG1hbmFnYWJsZSB3ZSBzcGxpdCByZWR1bnRhbnQgaW5mb3JtYXRpb24gYWJvdXQgdGhlIHRhc3RlcnMgaW50byBhIG5ldyBkYXRhZnJhbWUuCmBgYHtyfQp0YXN0ZXJzIDwtIHdpbmVzICU+JQogIHNlbGVjdCh0YXN0ZXJfbmFtZSwgdGFzdGVyX3R3aXR0ZXJfaGFuZGxlKSAlPiUgCiAgdW5pcXVlKCkKdGFzdGVycwpgYGAKCgpEcm9wIGB0YXN0ZXJfdHdpdHRlcl9oYW5kbGVgIGluIHdpbmVzIGRhdGFmcmFtZSB0byByZWR1Y2UgcmVkdW50YW50IGluZm9ybWF0aW9uLgpgYGB7cn0Kd2luZXMgPC0gd2luZXMgJT4lCiAgc2VsZWN0KC10YXN0ZXJfdHdpdHRlcl9oYW5kbGUpCmhlYWQod2luZXMpCmBgYAoKIyMjIENyZWF0ZSBSZXZpZXdlciBNZXRyaWNzCkVhY2ggcmV2aWV3ZXJzIHByb2ZpbGUgaW5jbHVkZXMgdGhlIGZvbGxvd2luZyBtZXRyaWNzIHRvIGNyZWF0ZSBhIHByb2ZpbGU6IAoKLSBgYXZnX3BvaW50c2Agd2hpY2ggaXMgdGhlIGF2ZXJhZ2Ugb2YgYWxsIHRoZSByZXZpZXdlcidzIHNjb3JlcwoKLSBgc2RfcG9pbnRzYCB3aGljaCBpcyB0aGUgc3RhbmRhcmQgZGV2aWF0aW9uIG9mIGFsbCB0aGUgcmV2aWV3ZXIncyBzY29yZXMKCi0gYHZhcl9wb2ludHNgIHdoaWNoIGlzIHRoZSB2YXJpYW5jZSBvZiBhbGwgdGhlIHJldmlld2VyJ3Mgc2NvcmVzCgotIGByZXZpZXdzYCB3aGljaCBpcyB0aGUgbnVtYmVyIG9mIHJldmlld3MgY29uZHVjdGVkCgpgYGB7cn0KdGFzdGVyX3JhdGluZ19wcm9maWxlIDwtIHdpbmVzICU+JQogIGdyb3VwX2J5KHRhc3Rlcl9uYW1lKSAlPiUKICBzdW1tYXJpemUoCiAgICBhdmdfcG9pbnRzID0gbWVhbihwb2ludHMpLAogICAgc2RfcG9pbnRzID0gc2QocG9pbnRzKSwKICAgIHZhcl9wb2ludHMgPSB2YXIocG9pbnRzKSwKICAgIHJldmlld3MgPSBuKCkKICApCgp0YXN0ZXJzIDwtIGlubmVyX2pvaW4odGFzdGVycywgdGFzdGVyX3JhdGluZ19wcm9maWxlLCBieSA9ICJ0YXN0ZXJfbmFtZSIpCmhlYWQodGFzdGVycykKYGBgCgoKIyMgTm9ybWFsaXplZCBQb2ludHMKQXMgbWVudGlvbmVkLCBlYWNoIHJldmlld2VyIGhhcyBhIGRpZmZlcmVudCBiaWFzLiBUbyBvZmZzZXQgdGhpcywgd2UgY3JlYXRlZCBhIG5vcm1hbGl6ZWQgbWV0cmljLCBgbm9ybV9wb2ludHNgLCBieSBsb29raW5nIGF0IHRoZSBudW1iZXIgb2Ygc3RhbmRhcmQgZGV2aWF0aW9ucyBhIHdpbmUgaXMgZnJvbSB0aGUgcmV2aWV3ZXIncyBgYXZnX3BvaW50c2AuIFRoaXMgZ2l2ZXMgdXMgYSBtb3JlIGFjY3VyYXRlIHJlcHJlc2VudGF0aW9uIG9mIHdoaWNoIHdpbmVzIGFyZSAiYmV0dGVyIiB0aGFuIHRoZSByZXN0LgoKYGBge3J9Cm5vcm1hbGl6ZV9wb2ludHMgPC0gZnVuY3Rpb24oZGF0YSl7CiAgbGVmdF9qb2luKGRhdGEsIHRhc3RlcnMsIGJ5ID0gInRhc3Rlcl9uYW1lIiklPiUKICAgIHJvd3dpc2UoKSAlPiUKICAgIG11dGF0ZShub3JtX3BvaW50cyA9IChwb2ludHMtYXZnX3BvaW50cykvc2RfcG9pbnRzKSAlPiUKICAgIHNlbGVjdCgtYXZnX3BvaW50cywgLXNkX3BvaW50cywgLXZhcl9wb2ludHMsIC10YXN0ZXJfdHdpdHRlcl9oYW5kbGUsIC1yZXZpZXdzKQp9Cgp3aW5lcyA8LSBub3JtYWxpemVfcG9pbnRzKHdpbmVzKQpoZWFkKHdpbmVzKSAKYGBgCgojIyBEYXRhIFNhbml0YXRpb24KVG8gZW5zdXJlIHRoZSBpbnRlZ3JpdHkgb2Ygb3VyIGRhdGEsIHdlIHBlcmZvcm0gc29tZSBoYXJkIGNoZWNrcyB0aGF0IGNvdWxkIGhhdmUgYmVlbiBtaXNzZWQgZHVyaW5nIG91ciBkYXRhIHByZS1wcm9jZXNzaW5nLgpcClwKVmludGFnZSBzZWVtcyB0byBoYXZlIHllYXIgNzIwMCwgc28gd2UgZmlsdGVyZWQgYWxsIGRhdGEgdXAgdG8gMjAxOQpgYGAge3J9CndpbmVzIDwtIHdpbmVzICU+JQogIGZpbHRlcih2aW50YWdlPDIwMTkpCmBgYAoKIyBEYXRhIEV4cGxvcmF0aW9uCkJlZm9yZSwgY29uZHVjdGluZyBhbnkgZGV0YWlsZWQgYW5hbHlzaXMgb2Ygb3VyIGRhdGFzZXQsIHdlIGxvb2tlZCBhdCBhIHF1aWNrIHN1bW1hcnkgb2YgdGhlIGRhdGFzZXQKYGBge3J9CnN1bW1hcnkod2luZXMpCmBgYAoKIyMgVW5pdmFyaWF0ZSBFeHBsb3JhdGlvbgpUbyBiZXR0ZXIgdW5kZXJzdGFuZCB0aGUgZGlzdHJpYnV0aW9uIG9mIG91ciBkYXRhLCB3ZSBkaWQgc29tZSBzaW1wbGUgdW5pdmFyaWF0ZSB2aXN1YWxpemF0aW9uIGJhc2VkIG9uIHNwZWNpZmljIGZpZWxkcy4gQWRkaXRpb25hbGx5LCBiZWZvcmUgZG9pbmcgYSBtdWx0aXZhcmlhdGUgYW5hbHlzaXMgYW5kIGFuc3dlcmluZyBvdXIgcmVzZWFyY2ggcXVlc3Rpb25zLCB3ZSBmaXJzdCB3YW50IHRvIGVuc3VyZSBvdXIgZGF0YXNldCBpcyByb2J1c3QgYW5kIGFuIGFjY3VyYXRlIHJlcHJlc2VudGF0aW9uIG9mIHRoZSByZWFsIHdvcmxkLgoKIyMjIEFsY29ob2wgQW1vdW50ClRoZSB2aXN1YWxpemF0aW9uIGJlbG93IGRlcGljdHMgdGhlIGRpc3RyaWJ1dGlvbiBvZiBvdXIgZGF0YXNldCBiYXNlZCBvbiBhbGNvaG9sIHBlcmNlbnRhZ2UsIGBhbGNvaG9sYC4gVG8gYmV0dGVyIHVuZGVyc3RhbmQgYW5kIHZpc3VhbGl6ZSB0aGUgZGF0YSwgd2UgY2F0ZWdvcml6ZWQgdGhlIGdyYXBoIGJhc2VkIG9uIGByYXRpbmdfY2F0ZWdvcnlgLiBOb3RpY2UsIGEgbWFqb3JpdHkgb2Ygd2luZXMgaGF2ZSBhbiBhbGNvaG9sIGFtb3VudCBiZXR3ZWVuIDEyJS0xNSUsIGFuZCBhY2NvcmRpbmcgdG8gW1JlYWwgU2ltcGxlXShodHRwczovL3d3dy5yZWFsc2ltcGxlLmNvbS9ob2xpZGF5cy1lbnRlcnRhaW5pbmcvZW50ZXJ0YWluaW5nL2Zvb2QtZHJpbmsvYWxjb2hvbC1jb250ZW50LXdpbmUpLCB3aW5lIGFsY29ob2xpYyBjb250ZW50IGF2ZXJhZ2VzIGJldHdlZW4gMTElLTEzJS4gVGhpcyBsZWFkcyB1cyB0byBiZWxpZXZlIG91ciBkYXRhIGlzIGFuIGFjY3VyYXRlIHJlcHJlc2VudGF0aW9uIG9mIHRoZSByZWFsIHdvcmxkLgpgYGB7cn0Kd2luZXMgJT4lIAogIGdyb3VwX2J5KGFsY29ob2wpICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9oaXN0b2dyYW0oCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4ID0gYWxjb2hvbCwgCiAgICAgIGZpbGwgPSByYXRpbmdfY2F0ZWdvcnkpLAogICAgbmEucm0gPSBUUlVFLAogICAgYmlucyA9IDUwKSArCiAgc2NhbGVfeF9jb250aW51b3VzKAogICAgYnJlYWtzID0gc2VxKDAsMjUsMSksIAogICAgbGltaXRzID0gYyg0LDIyKSkgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJEaXN0cmlidXRpb24gb2YgQWxjb2hvbCBQZXJjZW50YWdlIiwKICAgIHggPSAiQWxjb2hvbCBQZXJjZW50YWdlIiwKICAgIHkgPSAiQ291bnQiLAogICAgZmlsbCA9ICJSYXRpbmcgQ2F0ZWdvcnkiCiAgKQpgYGAKCiMjIyBWaW50YWdlCk5leHQsIHdlIHdhbnRlZCB0byBzZWUgd2hhdCB2aW50YWdlIG1vc3Qgb2YgdGhlIHdpbmVzIGluIHRoZSBkYXRhc2V0IHdlcmUuIEFnYWluIHRvIGJldHRlciB1bmRlcnN0YW5kIGFuZCB2aXN1YWxpemUgdGhlIGRhdGEsIHdlIGNhdGVnb3JpemVkIHRoZSBncmFwaCBiYXNlZCBvbiBgcmF0aW5nX2NhdGVnb3J5YC4gTm90aWNlIHRoYXQgdGhlcmUgaXMgcm91Z2hseSBhbiBlcXVhbCBwZXJjZW50YWdlIG9mIGVhY2ggcmF0aW5nIGNhdGVnb3J5IHBlciB2aW50YWdlLgoKKE5vdGU6IERhdGEgcG9pbnRzIGJlZm9yZSAxOTkwIGhhdmUgYmVlbiBvbWl0dGVkIGZvciBjbGFyaXR5IGluIHZpc3VhbGl6YXRpb24pCmBgYHtyfQp3aW5lcyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9iYXIoCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4PXZpbnRhZ2UsIAogICAgICBmaWxsID0gcmF0aW5nX2NhdGVnb3J5KSwKICAgIG5hLnJtID0gVFJVRSkgKwogIHNjYWxlX3hfY29udGludW91cygKICAgIGJyZWFrcyA9IHNlcSgxOTkwLDIwMTksNSksIAogICAgbGltaXRzID0gYygxOTkwLDIwMTkpKSArCiAgbGFicygKICAgIHRpdGxlID0gIkRpc3RyaWJ1dGlvbiBvZiBWaW50YWdlIiwKICAgIHggPSAiVmludGFnZSIsIAogICAgeSA9ICJDb3VudCIsCiAgICBmaWxsID0gIlJhdGluZyBDYXRlZ29yeSIpCmBgYAoKIyMjIFdpbmVyeQpUbyBiZXR0ZXIgdW5kZXJzdGFuZCB0aGUgbnVtYmVyIHdpbmVzIHBlciB3aW5lcnksIHdlIGRpZCBhIHZpc3VhbGl6YXRpb24gdGhhdCBjb3VudHMgdGhlIG51bWJlciBvZiB3aW5lcyBwZXIgd2luZXJ5IHNob3dpbmcgb25seSBUb3AgMTAgd2luZXJpZXMgdG8gZ2l2ZSB5b3UgYW4gaWRlYSBvZiB3aGF0IHdpbmVyeSBoYXMgdGhlIG1vc3Qgc2VsZWN0aW9uIG9mIHdpbmVzLiBOb3RpY2UsIGVhY2ggb2YgdGhlIHRvcCAxMCBwcm9kdWNlcnMgb2Ygd2luZSBoYXZlIG92ZXIgMTAwIGRpZmZlcmVudCB3aW5lIGxhYmVscy4KYGBge3J9CndpbmVzICU+JQogIGdyb3VwX2J5KHdpbmVyeSkgJT4lCiAgc3VtbWFyaXNlKGNvdW50ID0gbigpKSAlPiUKICBhcnJhbmdlKGRlc2MoY291bnQpKSAlPiUKICBzbGljZSgxOjEwKSAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9jb2woCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4PSByZW9yZGVyKHdpbmVyeSwgY291bnQpLAogICAgICB5ID0gY291bnQsCiAgICAgIGZpbGwgPSB3aW5lcnkpKSArCiAgbGFicygKICAgIHRpdGxlID0gIkRpc3RyaWJ1dGlvbiBvZiBXaW5lcnkgKFRvcCAxMCkiLAogICAgeCA9ICJXaW5lcnkiLCAKICAgIHkgPSAiQ291bnQiKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSArCiAgY29vcmRfZmxpcCgpCmBgYAoKIyMjIFByb3ZpbmNlClRvIGJldHRlciB1bmRlcnN0YW5kIHRoZSBudW1iZXIgb2Ygd2luZXMgcGVyIHByb3ZpbmNlLCB3ZSBkaWQgYSB2aXN1YWxpemF0aW9uIHRoYXQgY291bnRzIHRoZSBudW1iZXIgb2Ygd2luZXMgcGVyIHByb3ZpbmNlLCBzaG93aW5nIG9ubHkgdGhlIHRvcCAxMCBwcm92aW5jZXMgd2l0aCB0aGUgbW9zdCB3aW5lcy4gVGhpcyBjYW4gZ2l2ZSB0aGUgcmVhZGVyIGFuIGlkZWEgd2hlcmUgdGhlaXIgd2luZSB3aWxsIG1vc3QgbGlrZWx5IGJlIG1hZGUgd2l0aCBDYWxpZm9ybmlhIHN0YW5kaW5nIG91dCBhcyBhIGNsZWFyIGxlYWRlci4KYGBge3J9CndpbmVzICU+JSAKICBncm91cF9ieShwcm92aW5jZSkgJT4lIAogIHN1bW1hcml6ZShjb3VudCA9IG4oKSkgJT4lIAogIGFycmFuZ2UoZGVzYyhjb3VudCkpICU+JSAKICBzbGljZSgxOjEwKSAlPiUgCiAgZ2dwbG90KCkrCiAgZ2VvbV9jb2woCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4ID0gcmVvcmRlcihwcm92aW5jZSwgY291bnQpLCAKICAgICAgeSA9IGNvdW50LAogICAgICBmaWxsID0gcHJvdmluY2UpKSArCiAgbGFicygKICAgIHRpdGxlID0gIkRpc3RyaWJ1dGlvbiBvZiBQcm92aW5jZSAoVG9wIDEwKSIsCiAgICB4ID0gIlByb3ZpbmNlIiwgCiAgICB5ID0gIkNvdW50IikgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikgKwogIGNvb3JkX2ZsaXAoKQpgYGAKIyMjIFdpbmUgQ2F0ZWdvcnkKTmV4dCwgd2Ugd2FudGVkIHRvIHZpc3VhbGl6ZSB0aGUgZGlzdHJpYnV0aW9uIG9mIGRpZmZlcmVudCB3aW5lIGNhdGVnb3JpZXMgaW4gb3VyIGRhdGFzZXQuIFRvIGJldHRlciB1bmRlcnN0YW5kIGFuZCB2aXN1YWxpemUgdGhlIGRhdGEsIHdlIGNhdGVnb3JpemVkIHRoZSBncmFwaCBiYXNlZCBvbiBgcmF0aW5nX2NhdGVnb3J5YC4gTm90aWNlLCBhIG1ham9yaXR5IG9mIHRoZSB3aW5lcyBhcmUgcmVkIG9yIHdoaXRlIHdpbmVzLgoKYGBge3J9CndpbmVzICU+JSAKICBnZ3Bsb3QoKSsKICBnZW9tX2JhcigKICAgIG1hcHBpbmcgPSBhZXMoCiAgICAgIHggPSBjYXRlZ29yeSwKICAgICAgZmlsbCA9IHJhdGluZ19jYXRlZ29yeSkpICsKICBsYWJzKAogICAgdGl0bGUgPSAiRGlzdHJpYnV0aW9uIG9mIFdpbmUgQ2F0ZWdvcnkiLAogICAgeCA9ICJXaW5lIENhdGVnb3J5IiwgCiAgICB5ID0gIkNvdW50IiwKICAgIGZpbGwgPSAiUmF0aW5nIENhdGVnb3J5IikgKwogIGNvb3JkX2ZsaXAoKQpgYGAKCiMjIyBQcmljZQpOZXh0LCB3ZSB3YW50ZWQgdG8gdmlzdWFsaXplIHRoZSBkaXN0cmlidXRpb24gb2YgcHJpY2UgaW4gb3VyIGRhdGFzZXQuIFRvIGJldHRlciB1bmRlcnN0YW5kIGFuZCB2aXN1YWxpemUgdGhlIGRhdGEsIHdlIGNhdGVnb3JpemVkIHRoZSBncmFwaCBiYXNlZCBvbiBgcmF0aW5nX2NhdGVnb3J5YC4gTm90aWNlLCBhIG1ham9yaXR5IG9mIHdpbmVzIGFyZSBcJDUwIGFuZCBiZWxvdywgd2l0aCB0aGUgbW9zdCBjb21tb24gYmVpbmcgYmV0d2VlbiBcJDEyIC0gXCQyNS4gQWdhaW4sIHRoaXMgYWNjdXJhdGVseSByZXByZXNlbnRzIHRoZSByZWFsIHdvcmxkLiBBcyBzdGF0ZWQgYnkgW1Zpdmlub10oaHR0cHM6Ly93d3cudml2aW5vLmNvbS93aW5lLW5ld3MvaG93LW11Y2gtZG9lcy1hLWdvb2QtYm90dGxlLW9mLXdpbmUtY29zdCksIHRoZSBhdmVyYWdlIHByaWNlIGZvciBhIGdvb2QgYm90dGxlIG9mIHJlZC93aGl0ZSB3aW5lIGlzIH5cJDE1IGFuZCB+XCQyOCBmb3IgYSB2ZXJ5IGdvb2QgYm90dGxlLiAoQ0FVVElPTjogVGhlIFZpdmlubyBwcmljZXMgZGVub3RlZCB3ZXJlIHNpbXBseSBhbiBhdmVyYWdlIGZvciByZWQvd2hpdGUgd2luZXMgYXZlcmFnZSBjb3N0cy4gVGhpcyB3YXMgZG9uZSB0byBnZW5lcmFsaXplIHRoZSBpbmZvcm1hdGlvbiB0byBtYWtlIGEgc2ltcGxlIGNvbXBhcmlzb24uIEFsc28sIHRoaXMgbGltaXRlZCB0byByZWQvd2hpdGUgd2luZSBhbmQgZG9lcyBub3QgYWNjdXJhdGVseSBpbmNsdWRlIG90aGVyIHR5cGVzLCB3aGljaCBhcmUgaW5jbHVkZWQgd2l0aGluIG91ciBkYXRhc2V0KQoKKE5vdGU6IERhdGEgcG9pbnRzIGFib3ZlICQ0MDAgaGF2ZSBiZWVuIG9taXR0ZWQgZm9yIGNsYXJpdHkgaW4gdmlzdWFsaXphdGlvbikKYGBge3J9CndpbmVzICU+JSAKICBmaWx0ZXIocHJpY2UgPCA0MDApICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9oaXN0b2dyYW0oCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4PXByaWNlLCAKICAgICAgZmlsbCA9IHJhdGluZ19jYXRlZ29yeSksCiAgICBiaW53aWR0aCA9IDE1KSArCiAgbGFicygKICAgIHRpdGxlID0gIkRpc3RyaWJ1dGlvbiBvZiBQcmljZSIsCiAgICB4ID0gIlByaWNlIiwgCiAgICB5ID0gIkNvdW50IiwKICAgIGZpbGwgPSAiUmF0aW5nIENhdGVnb3J5IikKYGBgCgojIyMgIFBvaW50cyAKTmV4dCwgd2Ugd2FudGVkIHRvIHZpc3VhbGl6ZSB0aGUgZGlzdHJpYnV0aW9uIG9mIHBvaW50cyBpbiBvdXIgZGF0YXNldC4gTm90aWNlLCBoZXJlIHRoYXQgYSBtYWpvcml0eSBvZiB3aW5lcyByZWNlaXZlIGEgc2NvcmUgYmV0d2VlbiA4NyBhbmQgOTAuIFdoaWNoIGlzIGFjY3VyYXRlIHRvIHRoZSBpbmZvcm1hdGlvbiBwcm92aWRlZCBvbiBbV2luZSBTZWFyY2hlcl0oImh0dHBzOi8vd3d3LndpbmUtc2VhcmNoZXIuY29tL2NyaXRpY3MtMTctd2luZStlbnRodXNpYXN0IiksIHdoaWNoIHN0YXRlcyA1MCUgb2YgdGhlIHNjb3JlcyBmYWxsIGJldHdlZW4gODYtOTAgcG9pbnQgZnJvbSBXaW5lIEVudGh1c2lhc3QgcmF0aW5ncy4KCihOb3RlOiBXZSBvdXIgZGF0YXNldCB3YXMgcmV0ZXJpdmVkIGZyb20gdGhlIFdpbmUgRW50aHVzaWFzdCB3ZWJzaXRlKQpgYGB7cn0Kd2luZXMgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21faGlzdG9ncmFtKAogICAgbWFwcGluZyA9IGFlcyh4PXBvaW50cyksCiAgICBiaW5zID0gMjApKwogIGxhYnMoCiAgICB0aXRsZSA9ICJEaXN0cmlidXRpb24gb2YgUG9pbnRzIiwKICAgIHggPSAiUG9pbnRzIiwgCiAgICB5ID0gIkNvdW50IikKYGBgCgojIyBNdWx0aXZhcmlhdGUgRXhwbG9yYXRpb24KTm93IHRoYXQgd2UgaGF2ZSBhIGJldHRlciB1bmRlcnN0YW5kaW5nIG9mIG91ciBkYXRhLCBhbmQgd2Uga25vdyBpdCBpcyBhbiBhY2N1cmF0ZSByZXByZXNlbnRhdGlvbiBvZiB0aGUgcmVhbCB3b3JsZCwgd2UgY2FuIHBlcmZvcm0gYSBtb3JlIGRldGFpbGVkIGFuYWx5c2lzIHVzaW5nIG11bHRpcGxlIHZhcmlhYmxlcy4KCiMjIyBQb2ludHMgYnkgVGFzdGVyClRvIHVuZGVyc3RhbmQgdGhlIHBvaW50IGRpc3RyaWJ1dGlvbiBieSB0YXN0ZXJzLCB3ZSBkaWQgYSBtdWx0aXZhcmlhdGUgdmlzdWFsaXphdGlvbiB0aGF0IGNvcnJlbGF0ZXMgdGFzdGVyIG5hbWVzIGJhc2VkIG9uIHRoZSBhdmVyYWdlIHdpbmUgcG9pbnRzIGFzIGlkZW50aWZpZWQgYnkgdGhlIHgtaW50ZXJjZXB0LiBUaGlzIGdpdmVzIHRoZSByZWFkZXIgYW4gaWRlYSBvZiBob3cgc29tZSByZXZpZXdlcnMgY29ycmVsYXRlIHRvIHRoZSBvdmVyYWxsIGF2ZXJhZ2UuCgooTm90ZTogVGhlIOKAnGJsYW5r4oCdIHJlcHJlc2VudHMgdW5rbm93biByZXZpZXdlcnMuIFdlIGFzc3VtZWQgdGhlIHJldmlld2VycyBub3QgbmFtZWQgaGF2ZSBub3QgcmF0ZWQgYSBzaWduaWZpY2FudCBhbW91bnQgb2Ygd2luZXMgYW5kIGNhbiBiZSBncm91cGVkIGludG8gYSBzaW5ndWxhciByZXZpZXdlcikKYGBge3J9CndpbmVzICU+JQogIGdncGxvdCgpICsKICBnZW9tX2JveHBsb3QoCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4PXRhc3Rlcl9uYW1lLAogICAgICB5PXBvaW50cywgCiAgICAgIGNvbG9yID0gdGFzdGVyX25hbWUpKSArCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gbWVhbih3aW5lcyRwb2ludHMpKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSsKICBsYWJzKAogICAgdGl0bGUgPSAiUG9pbnRzIGJ5IFRhc3RlciIsCiAgICB4PSJUYXN0ZXIgTmFtZSIsCiAgICB5PSJQb2ludHMiCiAgKSsKICBjb29yZF9mbGlwKCkKYGBgCgoKIyMjIFByaWNlIGJ5IFBvaW50cwpUbyB1bmRlcnN0YW5kIHRoZSBwcmljZSBkaXN0cmlidXRpb24gYnkgcG9pbnRzLCB3ZSBkaWQgYSBtdWx0aXZhcmlhdGUgdmlzdWFsaXphdGlvbiB0aGF0IGNyZWF0ZXMgYSBzY2F0dGVyIHBsb3Qgb2YgdGhlIHdpbmVzIGJhc2VkIG9uIHBvaW50cyBhbmQgcHJpY2UuIFRoZW4sIHdlIGFkZGVkIGEgc21vb3RoIHRyYW5zZm9ybWF0aW9uIHRvIGlkZW50aWZ5IHRyZW5kcy4gTm90aWNlLCB0aGUgZGF0YSBpcyBzdGFja2VkLCBhbmQgdGhlIHNjb3JlcyByYW5nZSBmcm9tIDgwLTEwMApgYGB7cn0Kd2luZXMgJT4lIAogIGdncGxvdCgpICsKICBnZW9tX3BvaW50KAogICAgbWFwcGluZyA9IGFlcygKICAgICAgeCA9IHBvaW50cywgCiAgICAgIHkgPSBwcmljZSwgCiAgICAgIGNvbG9yID0gY2F0ZWdvcnkpLAogICAgbmEucm0gPSBUUlVFLAogICAgYWxwaGEgPSAwLjIpICsKICBsYWJzKAogICAgdGl0bGUgPSAiUHJpY2UgYnkgUG9pbnRzIiwgCiAgICB4ID0gIlBvaW50cyIsCiAgICB5ID0gIlByaWNlIiwKICAgIGNvbG9yID0gIldpbmUgQ2F0ZWdvcnkiKSArCiAgZ2VvbV9zbW9vdGgoCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4ID0gcG9pbnRzLCAKICAgICAgeSA9IHByaWNlKSwKICAgIG5hLnJtID0gVFJVRSkKYGBgCgpTaW5jZSB0aGVyZSBhcmUgbXVsdGlwbGUgb3V0bGllcnMsIGFuZCB0aGUgdmlzdWFsaXphdGlvbiBpcyBjbHVzdGVyZWQuIEJ5IHBlcmZvcm1pbmcgYSBsb2cgb24gYWxsIHRoZSBwcmljZXMsIHdlIGNhbiByZWR1Y2UgdGhlIHNrZXduZXNzIG9mIHRoZSB2aXN1YWxpemF0aW9uLiBOb3RpY2UsIGFzIHRoZSBxdWFsaXR5IG9mIHdpbmUgaW5jcmVhc2VzLCBwcmljZSBpbmNyZWFzZXMgZXhwb25lbnRpYWxseS4KYGBge3J9CndpbmVzICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9wb2ludCgKICAgIG1hcHBpbmcgPSBhZXMoCiAgICAgIHggPSBwb2ludHMsIAogICAgICB5ID0gbG9nKHByaWNlKSwgCiAgICAgIGNvbG9yID0gY2F0ZWdvcnkpLAogICAgbmEucm0gPSBUUlVFLAogICAgYWxwaGEgPSAwLjIpICsKICBsYWJzKAogICAgdGl0bGUgPSAibG9nKFByaWNlKSBieSBQb2ludHMiLCAKICAgIHggPSAiUG9pbnRzIiwKICAgIHkgPSAibG9nKFByaWNlKSIsCiAgICBjb2xvciA9ICJXaW5lIENhdGVnb3J5IikgKwogIGdlb21fc21vb3RoKAogICAgbWFwcGluZyA9IGFlcygKICAgICAgeCA9IHBvaW50cywgCiAgICAgIHkgPSBsb2cocHJpY2UpKSwKICAgIG5hLnJtID0gVFJVRSkKYGBgCgojIyMjIEdyb3VwIGJ5IFdpbmUgQ2F0ZWdvcnkKTmV4dCwgb3VyIGdyb3VwIHdhbnRlZCB0byBkbyBhIG1vcmUgZ3JhbnVsYXIgYW5hbHlzaXMgYnkgbG9va2luZyBhdCBob3cgdGhlIHByaWNlIHZhcmllcyBieSBwb2ludHMgZ3JvdXBlZCBieSB0aGUgd2luZSBjYXRlZ29yeS4gTm90aWNlLCBhbGwgdGhlIHByaWNlcyBnbyB1cCBhcyBwb2ludHMgZ28gdXAsIGJ1dCB0aGUgZ3Jvd3RoIHJhdGVzIGFyZSBkaWZmZXJlbnQgcGVyIHdpbmUgY2F0ZWdvcnkuCmBgYHtyfQp3aW5lcyAlPiUgCiAgZ2dwbG90KCkgKwogIGdlb21fcG9pbnQoCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4ID0gcG9pbnRzLCAKICAgICAgeSA9IGxvZyhwcmljZSksIAogICAgICBjb2xvciA9IGNhdGVnb3J5KSwKICAgIGFscGhhID0wLjIsCiAgICBuYS5ybSA9IFRSVUUpICsKICBnZW9tX3Ntb290aCgKICAgIG1hcHBpbmcgPSBhZXMoCiAgICAgIHggPSBwb2ludHMsIAogICAgICB5ID0gbG9nKHByaWNlKSksCiAgICBuYS5ybSA9IFRSVUUpICsKICBmYWNldF93cmFwKH5jYXRlZ29yeSkgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJsb2coUHJpY2UpIGJ5IFBvaW50cyIsIAogICAgeCA9ICJQb2ludHMiLAogICAgeSA9ICJsb2coUHJpY2UpIikrCiAgdGhlbWVfbWluaW1hbCgpKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiApCmBgYAoKCiMgRGF0YSBBbmFseXNpcwpOb3cgdGhhdCB3ZSBmdWxseSB1bmRlcnN0YW5kIHRoZSBkYXRhc2V0IHdlIGFyZSB3b3JraW5nIHdpdGgsIHdlIHBsYW4gdG8gYW5zd2VyIHNvbWUgcmVzZWFyY2ggcXVlc3Rpb25zIHByb3Bvc2VkIGJ5IHRoZSB0ZWFtLgoKIyMgV2hhdCBpcyB0aGUgYmVzdCB3aW5lPwpBbiBlYXN5IHdheSB0byBkZXRlcm1pbmUgdGhlIGJlc3Qgd2luZSBpcyBieSBzaW1wbHkgZmluZGluZyB0aGUgdG9wIDEwIHdpbmVzIGJ5IHJhdGluZy4KYGBge3J9CndpbmVzICU+JQogIGFycmFuZ2UoZGVzYyhwb2ludHMpKSAlPiUKICBzbGljZSgxOjEwKSAlPiUKICBzZWxlY3QodGl0bGUscHJpY2UsIHBvaW50cyxyYXRpbmdfY2F0ZWdvcnksIG5vcm1fcG9pbnRzKQpgYGAKCkhvd2V2ZXIsIHRoaXMgZG9lcyBub3QgYWNjb3VudCBmb3IgdGhlIHRhc3RlcidzIGJpYXMuIEluc3RlYWQsIG91ciBncm91cCBub3JtYWxpemVkIHRoZSBwb2ludHMgYmFzZWQgb24gZWFjaCB0YXN0ZXIgYmFzZWQgb24gdGhlIG51bWJlciBvZiBzdGFuZGFyZCBkZXZpYXRpb25zIGEgd2luZSBpcyBmcm9tIHRoZSByYXRlcnMgYXZlcmFnZS4gRm9yIGV4YW1wbGUsIFRhc3RlciBBIGNvdWxkIGdpdmUgYSB3aW5lIDEwMCBidXQgaGFzIGFuIGF2ZXJhZ2UgcmF0aW5nIHNjb3JlIG9mIDk1IHdpdGggYSBzdGFuZGFyZCBkZXZpYXRpb24gb2YgNS4gV2hlcmVhcywgVGFzdGVyIEIgY291bGQgb2ZmZXIgYSB3aW5lIDkxIGFuZCBoYXZlIGFuIGF2ZXJhZ2Ugc2NvcmUgb2YgODcgd2l0aCBhIHN0YW5kYXJkIGRldmlhdGlvbiBvZiAyLiBBbHRob3VnaCB0aGUgd2luZSB0YXN0ZWQgYnkgVGFzdGVyIEEgZ290IGEgcGVyZmVjdCAxMDAgc2NvcmUsIFRhc3RlciBC4oCZcyB3aW5lIHdhcyBtdWNoIOKAnGJldHRlcuKAnSB3aW5lIHNpbmNlIGl0IHdhcyB0d28gc3RhbmRhcmQgZGV2aWF0aW9ucyBmcm9tIHRoZSB0YXN0ZXJzIGF2ZXJhZ2UgY29tcGFyZWQgdG8gMSBzdGFuZGFyZCBkZXZpYXRpb24gb2YgdGhlIG90aGVyIHdpbmUuCgpMb29raW5nIGF0IHRoZSBgbm9ybV9wb2ludHNgIHRoZXNlIGFyZSB0aGUgdG9wIDEwIGJlc3Qgd2luZXMKYGBge3J9CndpbmVzICU+JQogIGFycmFuZ2UoZGVzYyhub3JtX3BvaW50cykpICU+JQogIHNsaWNlKDE6MTApJT4lCiAgc2VsZWN0KHRpdGxlLHByaWNlLCBwb2ludHMscmF0aW5nX2NhdGVnb3J5LCBub3JtX3BvaW50cykKYGBgCgojIyBXaGF0IGlzIHRoZSBiZXN0IHZhbHVlIHdpbmU/CkEgc2ltcGxlIHZhbHVlIG1ldHJpYyB3ZSBjYW4gdXNlIHRvIGRldGVybWluZSBiZXN0IHZhbHVlIGlzIGBwb2ludHMvcHJpY2VgLgpgYGB7cn0Kd2luZXMgJT4lCiAgYXJyYW5nZShkZXNjKHBvaW50cy9wcmljZSkpICU+JQogIHNsaWNlKDE6MTApJT4lCiAgc2VsZWN0KHRpdGxlLHByaWNlLCBwb2ludHMscmF0aW5nX2NhdGVnb3J5LCBub3JtX3BvaW50cykKYGBgCgpIb3dldmVyLCBhZ2FpbiB0aGlzIG1ldHJpYyBpcyBub3Qgbm9ybWFsaXplZC4gSW5zdGVhZCwgYG5vcm1fcG9pbnRzL3ByaWNlYCB3b3VsZCB5aWVsZCBtb3JlIHJvYnVzdCByZXN1bHRzLgpgYGB7cn0Kd2luZXMgJT4lCiAgYXJyYW5nZShkZXNjKG5vcm1fcG9pbnRzL3ByaWNlKSkgJT4lCiAgc2xpY2UoMToxMCkgJT4lCiAgc2VsZWN0KHRpdGxlLHByaWNlLCBwb2ludHMscmF0aW5nX2NhdGVnb3J5LCBub3JtX3BvaW50cykKYGBgCgojIyBXaGljaCBwcm92aW5jZSBoYXMgdGhlIGJlc3Qgd2luZT8KVG8gZGV0ZXJtaW5lIHRoZSBiZXN0IHByb3ZpbmNlIGZvciB3aW5lIGJ5IHBvaW50cywgd2UgYXZlcmFnZWQgdGhlIHBvaW50cyBvZiBhbGwgd2luZXMgcGVyIHByb3ZpbmNlIHdpdGggYSBzYW1wbGUgc2l6ZSBncmVhdGVyIHRoYW4gMzAgYW5kIHJldHVybmVkIHRoZSB0b3AgMTAgd2l0aCBzdGFuZGFyZCBlcnJvci4gTm90aWNlIGhvdyB0aGUgc3RhbmRhcmQgZXJyb3IgaXMgbG93LCBtZWFuaW5nIHRoZSBzcHJlYWQgb2Ygb3VyIGRhdGEgaXMgYWxzbyBzbWFsbCwgYW5kIHRoZSBhdmVyYWdlIGlzIHZlcnkgYWNjdXJhdGUuCgpgYGB7cn0Kd2luZXMgJT4lIAogIGdyb3VwX2J5KHByb3ZpbmNlKSAlPiUKICBzdW1tYXJpc2UoCiAgICBhdmdfcG9pbnRzX3Byb3YgPSBtZWFuKHBvaW50cyksIAogICAgY291bnQgPSBuKCksIAogICAgc3RkX2Vycl9wb2ludHNfcHJvdiA9IHNkKHBvaW50cykvc3FydChjb3VudCkpICU+JQogIGZpbHRlcihjb3VudD4zMCkgJT4lCiAgYXJyYW5nZShkZXNjKGF2Z19wb2ludHNfcHJvdikpICU+JQogIHNsaWNlKDE6MTApICU+JQogIGdncGxvdCgpICsKICBnZW9tX2NvbCgKICAgIG1hcHBpbmcgPSBhZXMoCiAgICAgIHggPSByZW9yZGVyKHByb3ZpbmNlLGF2Z19wb2ludHNfcHJvdiksIAogICAgICB5ID0gYXZnX3BvaW50c19wcm92LAogICAgICBmaWxsID0gcHJvdmluY2UpKSArCiAgIGdlb21fZXJyb3JiYXIoCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4ID0gcHJvdmluY2UsCiAgICAgIHkgPSBhdmdfcG9pbnRzX3Byb3YsCiAgICAgIHltaW4gPSBhdmdfcG9pbnRzX3Byb3YgLSBzdGRfZXJyX3BvaW50c19wcm92LCAKICAgICAgeW1heCA9IGF2Z19wb2ludHNfcHJvdiArIHN0ZF9lcnJfcG9pbnRzX3Byb3YKICAgICAgKSwKICAgIHdpZHRoID0gMC4yKSsKICBzY2FsZV95X2NvbnRpbnVvdXMoCiAgICBsaW1pdHM9Yyg4NSw5NSksIAogICAgb29iID0gcmVzY2FsZV9ub25lKSsKICBsYWJzKAogICAgICB4ID0gJ1Byb3ZpbmNlJywgCiAgICAgIHkgPSAiQXZlcmFnZSBQb2ludHMiLCAKICAgICAgdGl0bGUgPSAiQXZlcmFnZSBQb2ludHMgQnkgUHJvdmluY2UgKFRvcCAxMCkiKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSsKICBjb29yZF9mbGlwKCkKYGBgCgojIyBXaGljaCB3aW5lIHZhcmlldHkgaXMgdGhlIGJlc3Q/ClRvIGRldGVybWluZSB0aGUgYmVzdCB2YXJpZXR5IG9mIHdpbmUsIHdlIHVzZSB0aGUgYXZlcmFnZSBwb2ludHMgb2YgYWxsIHdpbmVzIHBlciB2YXJpZXR5IHdpdGggYSBzYW1wbGUgc2l6ZSBncmVhdGVyIHRoYW4gMzAuIFRoZSBncmFwaCBiZWxvdyBzaG93cyB0aGUgdG9wIDEwIHZhcmlldGllcyB3aXRoIHRoZWlyIHJlc3BlY3RpdmUgc3RhbmRhcmQgZXJyb3IuCgpgYGB7cn0Kd2luZXMgJT4lIAogIGdyb3VwX2J5KHZhcmlldHkpICU+JQogIHN1bW1hcmlzZSgKICAgIGF2Z19wb2ludHNfdmFyaWV0eSA9IG1lYW4ocG9pbnRzKSwgCiAgICBjb3VudCA9IG4oKSwgCiAgICBzdGRfZXJyX3BvaW50c192YXJpZXR5ID0gc2QocG9pbnRzKS9zcXJ0KGNvdW50KSkgJT4lCiAgZmlsdGVyKGNvdW50PjMwKSAlPiUKICBhcnJhbmdlKGRlc2MoYXZnX3BvaW50c192YXJpZXR5KSkgJT4lCiAgc2xpY2UoMToxMCkgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fY29sKAogICAgbWFwcGluZyA9IGFlcygKICAgICAgeCA9IHJlb3JkZXIodmFyaWV0eSxhdmdfcG9pbnRzX3ZhcmlldHkpLCAKICAgICAgeSA9IGF2Z19wb2ludHNfdmFyaWV0eSwKICAgICAgZmlsbCA9IHZhcmlldHkpKSArCiAgIGdlb21fZXJyb3JiYXIoCiAgICBtYXBwaW5nID0gYWVzKAogICAgICB4ID0gdmFyaWV0eSwKICAgICAgeSA9IGF2Z19wb2ludHNfdmFyaWV0eSwKICAgICAgeW1pbiA9IGF2Z19wb2ludHNfdmFyaWV0eSAtIHN0ZF9lcnJfcG9pbnRzX3ZhcmlldHksIAogICAgICB5bWF4ID0gYXZnX3BvaW50c192YXJpZXR5ICsgc3RkX2Vycl9wb2ludHNfdmFyaWV0eQogICAgICApLAogICAgd2lkdGggPSAwLjIpKwogIHNjYWxlX3lfY29udGludW91cygKICAgIGxpbWl0cz1jKDg1LDk1KSwgCiAgICBvb2IgPSByZXNjYWxlX25vbmUpKwogIGxhYnMoCiAgICAgIHggPSAnVmFyaWV0eScsIAogICAgICB5ID0gIkF2ZXJhZ2UgUG9pbnRzIiwgCiAgICAgIHRpdGxlID0gIkF2ZXJhZ2UgUG9pbnRzIEJ5IFZhcmlldHkgKFRvcCAxMCkiKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSsKICBjb29yZF9mbGlwKCkKYGBgCgojIyBKZXNzIGZyb20gTmV3IEdpcmzigJlzIGZhdm9yaXRlIHdpbmU/ClNvdW5kcyBsaWtlIGEgc2lsbHkgcXVlc3Rpb24sIGJ1dCB0YWtlIGEgY2xvc2VyIGxvb2sgYW5kIHlvdSdsbCBmaW5kIGFuIGludGVyZXN0aW5nIHF1ZXN0aW9uIHdpdGhpbiBpdDogIkNhbiB3ZSBkZXRlcm1pbmUgdGhlIGJlc3QgdmFsdWUgd2luZSBiYXNlZCBvbiBob3cgbXVjaCBwZW9wbGUgYXJlIHdpbGxpbmcgdG8gcGF5PyIgIFdFIFNVUkUgQ0FOIQoKYGBge3J9CiMgSWYgeW91IHdhbnQgdG8gZ2V0IHVzZXIgaW5wdXQKI3VzZXJfcHJpY2UgPC0gcmVhZGxpbmUocHJvbXB0ID0gIkhvdyBtdWNoIGFyZSB5b3Ugd2lsbGluZyB0byBzcGVuZCBvbiBhIGJvdHRsZT8iKQojdXNlcl9wcmljZSA8LSBhcy5pbnRlZ2VyKHVzZXJfcHJpY2UpCnVzZXJfcHJpY2U8LTExCgp3aW5lcyAlPiUgCiAgZmlsdGVyKHByaWNlIDw9IHVzZXJfcHJpY2UpICU+JQogIGFycmFuZ2UoZGVzYyhub3JtX3BvaW50cy9wcmljZSkpICU+JQogIHNsaWNlKDE6MTApICU+JQogIHNlbGVjdCh0aXRsZSwgcHJpY2UsIHBvaW50cyxyYXRpbmdfY2F0ZWdvcnksIG5vcm1fcG9pbnRzKQpgYGAKCk5vdyBiYWNrIHRvIHRoZSBvcmlnbmFsIHF1ZXN0aW9uIHdpdGggSmVzcwo8YnI+CjxkaXYgc3R5bGU9IndpZHRoOjEwMCU7aGVpZ2h0OjA7cGFkZGluZy1ib3R0b206NjElO3Bvc2l0aW9uOnJlbGF0aXZlOyI+PGlmcmFtZSBzcmM9Imh0dHBzOi8vZ2lwaHkuY29tL2VtYmVkLzNvc3hZM0p1NnAyakpiQm84OCIgd2lkdGg9IjEwMCUiIGhlaWdodD0iMTAwJSIgc3R5bGU9InBvc2l0aW9uOmFic29sdXRlIiBmcmFtZUJvcmRlcj0iMCIgY2xhc3M9ImdpcGh5LWVtYmVkIiBhbGxvd0Z1bGxTY3JlZW4+PC9pZnJhbWU+PC9kaXY+CgpgYGB7cn0gCndpbmVzICU+JSAKICBmaWx0ZXIocHJpY2UgPCAxMSkgJT4lCiAgZmlsdGVyKGNhdGVnb3J5ID09ICJTcGFya2xpbmciKSAlPiUKICBmaWx0ZXIoZ3JlcGwoInBpbmsiLCB0aXRsZSwgaWdub3JlLmNhc2UgPSBUKSA9PSBUKSAlPiUKICBzZWxlY3QodGl0bGUscHJpY2UsIHBvaW50cyxyYXRpbmdfY2F0ZWdvcnksIG5vcm1fcG9pbnRzKQpgYGAKQXMgeW91IGNhbiBzZWUsICJZZWxsb3cgVGFpbCAyMDE1IFBpbmsgQnViYmxlcyBTcGFya2xpbmcgKFNvdXRoIEF1c3RyYWxpYSkiIGlzIEplc3MncyB0eXBlIG9mIHdpbmUhCgojIENvbmNsdXNpb24KQWZ0ZXIgYWxsIHRoaXMgZXhwbG9yYXRpb24sIHdlIHdlcmUgYWJsZSB0byB3YWxrIGF3YXkgd2l0aCBzb21lIGluc2lnaHRzLiBXZSBsZWFybmVkIHRoYXQgc3RhbmRhcmRpemluZyB0YXN0ZXJzIGdpdmVzIGEgbW9yZSBhY2N1cmF0ZSBvdmVydmlldyBvZiB3aGF0IHRoZSBiZXN0IHdpbmVzIHJlYWxseSBhcmUsIHRoYXQgcG9pbnQgdmFsdWVzIGFmZmVjdCBwcmljZSwgYW5kIHRoYXQgeW91J3JlIG1vc3QgbGlrZWx5IGRyaW5raW5nIHdpbmUgZnJvbSBDYWxpZm9ybmlhLiBJbiB0aGUgZW5kLCB0aG91Z2gsIHRoaXMgZXhwbG9yYXRpb24gb2Ygd2luZSBzaG93ZWQgdXMgbW9yZSB0aGFuIGp1c3QgaG93IHRvIGRlc2lnbiB0aGUgcGVyZmVjdCBmbGlnaHQ7IHdlIGxlYXJuZWQgdGhlIGltcG9ydGFuY2Ugb2YgZGF0YSBwcmVwcm9jZXNzaW5nLCB0aGUgcG93ZXIgb2YgbWluZGZ1bCBncmFwaGljcywgaG93IHRvIG1ha2UgZXZlcnkgZ2dwbG90IGVhc3kgdG8gdW5kZXJzdGFuZCBmb3IgdGhlIHJlYWRlciB1c2luZyBjb2xvciwgYW5kIHRoZSBwcmFjdGljYWxpdHkgb2YgdGhlIHBpcGUgdG9vbC4gV2Ugd2VyZSBhYmxlIHRvIGFwcGx5IGRhdGEgbWFuaXB1bGF0aW9uIGFuZCBleHBsb3JhdGlvbiBza2lsbHMgc3VjaCBhcyBmaWx0ZXJpbmcsIG11dGF0aW5nLCBhcnJhbmdpbmcsIGdyZXBpbmcsIGFuZCBzbGljaW5nIGRhdGEuIEJleW9uZCBSIHNraWxscywgd2UgbGVhcm5lZCBob3cgdG8gYWRhcHQgdG8gYmVpbmcgYSByZW1vdGUgdGVhbSwgd2hpY2ggd2FzIHNpZ25pZmljYW50bHkgaGVscGVkIHdpdGggdGhlIHV0aWxpemF0aW9uIG9mIEdpdEh1Yi4gV2UgZmVlbCB0aGlzIHJlcG9ydCBnaXZlcyBhIHdlbGwtcm91bmRlZCBkaXNwbGF5IG9mIHRoZSB0b29scyB3ZSB3ZXJlIHRhdWdodCB0aHJvdWdob3V0IHRoZSBzZW1lc3RlciwgYW5kIHdlIHdlcmUgZXhjaXRlZCB0byBidWlsZCBmcm9tIHRoYXQga25vd2xlZGdlIGFuZCBpbnRlZ3JhdGUgb3RoZXIgdG9vbHMgYXMgd2VsbC4KCiMgRnV0dXJlIFdvcmtzClRoZXJlIGlzIHVuZG91YnRlZGx5IG1vcmUgZXhwbG9yYXRpb24gdG8gYmUgZG9uZSB3aXRoaW4gdGhpcyBkYXRhc2V0LiAKSW50ZWdyYXRpbmcgbW9yZSBUd2l0dGVyIGRhdGEgd2l0aCBwYWNrYWdlcyBzdWNoIGFzIGBydHdlZXRgLCB3ZSBjb3VsZCBkZXNpZ24gdGhlICJwZXJmZWN0IHN0ZXJlb3R5cGUiIG9mIGEgd2luZSBjb25ub2lzc2V1ciBieSBnYXRoZXJpbmcga2V5d29yZHMgZnJvbSB0d2VldHMuIERlbHZpbmcgaW50byB0aGUgdGV4dCBtaW5pbmcgcG9ydGlvbiBvZiBkYXRhIHNjaWVuY2UsIHdlIGNvdWxkIGZpbmQgcG9wdWxhciB3b3JkcyB0byBkZXNjcmliZSBhIHdpbmUgZnJvbSBlYWNoIHJldmlldyBhbmQgZGVzaWduIGFydGlmaWNpYWwgcmV2aWV3cy4gV2UgY291bGQgdGFrZSB0aGUgZGF0YSB3ZSBmb3VuZCwgYnVpbGQgc3RhdGlzdGljYWwgbGVhcm5pbmcgbW9kZWxzIHN1Y2ggYXMgYSByYW5kb20gZm9yZXN0IHRvIHByZWRpY3QgcHJpY2VzIG9mIHdpbmVzIGJhc2VkIG9uIHRoZSBkZXNjcmlwdGlvbnM7IHRoaXMgd291bGQgYmUgYSB1c2VmdWwgbW9kZWwgZm9yIG5ldywgYnVkZGluZyAocHVuIGludGVuZGVkKSB3aW5lcmllcyB0byBkZXRlcm1pbmUgdGhlIHByaWNlLiBBZGRpdGlvbmFsbHksIHRoaXMgZGF0YSBpcyBvbmx5IGEgZnJhY3Rpb24gb2YgdGhlIGRhdGEgZm91bmQgb24gdGhlIFdpbmUgRW50aHVzaWFzdCB3ZWJzaXRlLiBPdmVyYWxsLCBjcmVhdGl2aXR5IGlzIHRoZSBvbmx5IGxpbWl0YXRpb24gb24gd2hhdCBvdGhlciBwcm9ibGVtcyB3ZSBjb3VsZCBzb2x2ZSB3aXRoIHRoaXMgZGF0YXNldC4KClRoZSBkYXRhIHVzZWQgaXMganVzdCBhIGZyYWN0aW9uIG9mIHRoZSBkYXRhIGZvdW5kIG9uIHRoZSBXaW5lIEVudGh1c2lhc3Qgd2Vic2l0ZSwgdGhlIHRlYW0gaGFzIGNyZWF0ZWQgYSBzY3JpcHQgdG8gY29sbGVjdCBhZGRpdGlvbmFsIGluZm9ybWF0aW9uIG9uIHRoZSBzaXRlLCB3aGljaCBjYW4gYmUgZm91bmQgW2hlcmVdKGh0dHBzOi8vZ2l0aHViLmNvbS9DNHJieW4zbTRuL3dpbmVfcmV2aWV3c19kYXRhX2FuYWx5c2lzL3RyZWUvbWFzdGVyL2RhdGEvc2NyaXB0cykgZm9yIGZ1dHVyZSBleHBhbnNpb24uCgojIERhdGFzZXRzIENpdGVkClNwZWNpYWwgdGhhbmtzIHRvIFtaYWNrIFRob3V0dF0oaHR0cHM6Ly93d3cua2FnZ2xlLmNvbS96eW5pY2lkZSkgZm9yIHByb3ZpZGluZyB1cyB3aXRoIFtkYXRhc2V0XzFdKGh0dHBzOi8vd3d3LmthZ2dsZS5jb20venluaWNpZGUvd2luZS1yZXZpZXdzKSBhbmQgW1NhbnlhbSBLYXBvb3JdKGh0dHBzOi8vZ2l0aHViLmNvbS9hY3RpdmF0ZWRnZWVrKSBmb3IgcHJvdmlkaW5nIHVzIHdpdGggIFtkYXRhc2V0XzJdKGh0dHBzOi8vZ2l0aHViLmNvbS9hY3RpdmF0ZWRnZWVrL3dpbmVtYWctZGF0YXNldCkuCiAKVGhlIGRhdGEgd2UgdXNlZCBpcyBhdmFpbGFibGUgYXQ6IFtodHRwczovL2dpdGh1Yi5jb20vQzRyYnluM200bi93aW5lX3Jldmlld3NfZGF0YV9hbmFseXNpcy90cmVlL21hc3Rlci9kYXRhXSgiaHR0cHM6Ly9naXRodWIuY29tL0M0cmJ5bjNtNG4vd2luZV9yZXZpZXdzX2RhdGFfYW5hbHlzaXMvdHJlZS9tYXN0ZXIvZGF0YSIp